home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr11
/
pcv06n01.zip
/
MARQUEE.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-06-07
|
839b
|
22 lines
Delay% = 30000: CLS : Blanks$ = SPACE$(80)
LOCATE 10, 1: PRINT "Enter the message to display (79 chrs max, no commas): "
LOCATE 12, 1: INPUT "", Msg$: CLS : StrLen% = LEN(Msg$):
DO UNTIL INKEY$ <> ""
FOR VPos% = 80 TO 1 STEP -1
IF VPos% + StrLen% > 80 THEN
Display$ = LEFT$(Msg$, (81 - VPos%))
LOCATE 12, VPos%: PRINT Display$
ELSEIF VPos% = 1 THEN
FOR Ptr% = StrLen% TO 1 STEP -1
Display$ = RIGHT$(Msg$, Ptr%): LOCATE 12, 1: PRINT Display$
FOR Slow% = 1 TO Delay%: NEXT Slow%
LOCATE 12, 1: PRINT Blanks$
NEXT Ptr%
ELSE LOCATE 12, VPos%: PRINT Msg$
END IF
IF INKEY$ <> "" THEN SYSTEM
FOR Slow% = 1 TO Delay%: NEXT Slow%
LOCATE 12, 1: PRINT Blanks$
NEXT VPos%
LOOP
SYSTEM